home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / pasprog.EXE / REFHZ.PAS < prev    next >
Pascal/Delphi Source File  |  1995-08-28  |  658b  |  39 lines
  1. uses crt,dos;
  2.  
  3. procedure wait_retrace;assembler;
  4. asm
  5.    mov  dx,03dah
  6. @re:
  7.    in   al,dx
  8.    test al,8
  9.    jnz  @re
  10. @no:
  11.    in   al,dx
  12.    test al,8
  13.    jz   @no
  14. end;
  15.  
  16. var
  17.   h1, m1, s1, u1 : Word;
  18.   h2, m2, s2, u2 : Word;
  19.   f              : longint;
  20.   n              : word;
  21.  
  22. begin
  23.   clrscr;
  24.   repeat
  25.   wait_retrace;
  26.   GetTime(h1,m1,s1,u1);
  27.   for n:=1 to 100 do wait_retrace;
  28.   GetTime(h2,m2,s2,u2);
  29.   f:=((longint(h2)-longint(h1))*36000)+
  30.      ((longint(m2)-longint(m1))*6000)+
  31.      ((longint(s2)-longint(s1))*100)+
  32.      (longint(u2)-longint(u1));
  33.   if f<>0 then writeln((10000/f):2:2,'Hz');
  34.   until keypressed;
  35.  
  36. end.
  37.  
  38. var
  39.